inherited frmContrDebtTypes: TfrmContrDebtTypes
  Left = 551
  Top = 280
  VertScrollBar.Range = 0
  BorderStyle = bsDialog
  Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1085#1099#1077' '#1082#1086#1085#1090#1088#1072#1075#1077#1085#1090#1091' '#1090#1080#1087#1099' '#1076#1086#1083#1075#1086#1074
  ClientHeight = 351
  ClientWidth = 373
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 311
    Width = 373
    inherited BitBtn2: TBitBtn
      Left = 142
      Visible = False
    end
    inherited BitBtn3: TBitBtn
      Left = 2
    end
    inherited BitBtn7: TBitBtn
      Visible = False
    end
  end
  object Panel2: TPanel [1]
    Left = 0
    Top = 288
    Width = 373
    Height = 23
    Align = alBottom
    Caption = #1048#1079#1084#1077#1085#1077#1085#1080#1077' '#1074#1086#1079#1084#1086#1078#1085#1086' '#1090#1086#1083#1100#1082#1086' '#1080#1079' '#1084#1086#1076#1091#1083#1103' '#1072#1076#1084#1080#1085#1080#1089#1090#1088#1072#1090#1086#1088#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object DBGridEh1: TDBGridEh [2]
    Left = 0
    Top = 0
    Width = 373
    Height = 288
    Align = alClient
    DataSource = dscContrTypes
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'ID'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'NAME'
        Footers = <>
        Width = 366
      end>
  end
  inherited PropStorageEh1: TPropStorageEh
    Section = 'frmContrDebtTypes'
  end
  object dsContrTypes: TpFIBDataSet
    SelectSQL.Strings = (
      'select'
      '    sd.id,'
      '    sd.name'
      'from spr_debt_type sd'
      '  where exists(select 1'
      '    from spr_contragents_dtypes rdd'
      '    where rdd.dtype_id = sd.id'
      '    and rdd.contr_id = :pcontr_id)'
      'order by 1')
    Transaction = crdDebt.trDebt
    Database = MAINDM.MainDB
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 305
    Top = 118
    object dsContrTypesID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsContrTypesNAME: TFIBStringField
      FieldName = 'NAME'
      EmptyStrToNull = True
    end
  end
  object dscContrTypes: TDataSource
    DataSet = dsContrTypes
    Left = 268
    Top = 120
  end
end
